home *** CD-ROM | disk | FTP | other *** search
/ Wildcat Gold - The Optical BBS / Wildcat Gold - The Optical BBS (The Golden ROM Series)(Volume 4 Number 1)(The Digital Publishing Company)(1992).ISO / sdn / ca28_3b.sdn / NWI.CMD < prev    next >
OS/2 REXX Batch file  |  1991-07-10  |  1KB  |  49 lines
  1. ; ----- NWI: Dial the NWI system and connect (logon)
  2. ; ----------------------------------------------------------------
  3. ;    Note: This script hard codes the 800-number for NWI.  Tele-
  4. ;    net or other access methods require different scripting.
  5. ; ----------------------------------------------------------------
  6. ;    Note: This script uses a LOGON file prepared by MKLOGON,
  7. ;    if one is available.
  8. ; ----------------------------------------------------------------
  9. ;
  10. ;    Dial NWI without a dialing directory entry
  11. ;
  12.     LEGEND " Dialing NWI"
  13.     RESET            ; Reset defaults only if not linked
  14.     SET RDELAY 60        ; Wait 60 seconds for redial
  15.     SET BAUD 1200        ; Set parameters for DIALING
  16.     SET PARITY NONE     ; ..
  17.     SET Data 8
  18.     SET Stop 1
  19.     SET Duplex full
  20.     DIAL 81         ; Dial the number specified in this entry
  21.     IF FAILED        ; Test success of dialing
  22.        EXIT         ; terminate script
  23.        ENDIF        ; End if not linked
  24. ;
  25. ;    Synchronize with the host
  26. ;
  27.     TRANSMIT "!"            ; Send a c/r
  28.     WAITFOR "^M"            ; Wait for a c/r
  29.     TRANSMIT "!"            ; Send another c/r
  30.     WAITFOR "Username:"     ; Waitfor prompt
  31.     IF NOT WAITFFOR
  32.        MESSAGE "^M^JNWI not responding^M^J"
  33.        HANGUP
  34.        EXIT
  35.        ENDIF
  36. ;
  37. ;    If we have a NWILOGON file, use it
  38. ;
  39.     SET TTHRU OFF        ; Let psw be typed
  40.     SET SUCCESS OFF     ; ..
  41.     IF ISSCFILE "NWILOGON"
  42.        FCALL "NWILOGON"
  43.        ENDIF
  44. ;
  45. ;    If invoked via FCALL, return.  Else signal completion
  46. ;
  47.     IF FCALLED FRET
  48.     Alarm            ; Sound alarm
  49.